result = MsgBox("You will lose any text you entered." + Chr(10) + "Are you sure?", MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2, "Abort message " + fname + "?")
If result = IDYES Then
Kill fname
Unload frmexted
End If
End Sub
Sub cmdsend_Click ()
Dim result As Integer
Dim foldername As String
Dim newfname As String
If FileLen(fname) = flen Then
result = MsgBox("Are you sure you saved the file?", MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2, "File size unchanged")